10 GOTO100
50 REM <YES>
51 S=54272:FORE=STOS+28:POKEE,0:NEXT
52 POKE54296,15:POKE54277,42:POKE54278,250
53 POKE54276,23:POKE54273,23:POKE54272,191
54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
55 POKE54296,0:RETURN
60 REM <N0>
61 S=54272:FORE=STOS+28:POKEE,0:NEXT
62 POKE54296,15:POKE54277,18:POKE54278,242
63 POKE54276,33:POKE54273,4:POKE54272,48
64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
65 POKE54296,0:RETURN
70 REM <BLIP>
71 S=54272:FORE=STOS+28:POKEE,0:NEXT
72 POKE54296,5:POKE54277,42:POKE54278,250
73 POKE54276,23:POKE54273,23:POKE54272,191
74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
75 POKE54296,0:RETURN
80 FORT=1TO500:NEXT:RETURN
81 FORT=1TO1000:NEXT:RETURN
82 FORT=1TO2000:NEXT:RETURN
83 FORT=1TO3000:NEXT:RETURN
84 FORT=1TO4000:NEXT:RETURN
85 FORT=1TO5000:NEXT:RETURN
90 GOSUB81:GOSUB70
91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
92 [161]R$:[139]R$[179][177][199](32)[167]92
93 [142]
95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
105 [153]"                                        WAIT";
110 [153]"                                        WAIT";
115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
120 [153]"                                        WAIT";
125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
130 [153]"                                        WAIT";
135 [153]"               (null)ESSON 10                WAIT";
140 [153]"                                        WAIT";
145 [153]"          STR$ENOMINATE (null)UMBERS  OPEN          WAIT";
150 [153]"                                        WAIT";
155 [153]"                                        WAIT"
160 [153]"                  WHC "
165 [141]90
170 [153]"LOAD       ATNND AWAY WE GO......."
175 [141]81:[141]50:[141]80
200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
205 [153]"  LEFT$OW MANY SHOES ARE THERE IN 38 PAIRS
210 PRINT"  OF SHOES?"
220 GOSUB81:GOSUB70
225 PRINT"             [145]"
230 INPUT A$
240 IFA$<>"76"THEN 270
250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
260 P=P+1:GOTO300
270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
275 IFZ=2THENG=G+1:GOTO287
280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
285 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
287 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  76 [158]      ":GOSUB82
290 PRINT"    38 X 2 = 76 "
295 GOSUB82:GOSUB90
300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
305 PRINT"  [202]AMIE CAUGHT A FISH THAT WEIGHED
310 [153]"  27 POUNDS AND CHR$ILLIAN CAUGHT ONE        THAT WEIGHED 22 POUNDS.
315 PRINT"  [215]AS [202]AMIE'S FISH BIGGER?"
320 GOSUB81:GOSUB70
325 PRINT"             [145]"
330 INPUT A$
340 IFA$<>"Y"ANDA$<>"YES"THEN370
350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
360 P=P+1:GOTO400
370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
375 IFZ=2THENG=G+1:GOTO387
380 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
385 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
387 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  YES [158].     ":GOSUB82
390 PRINT"    27 - 22 = 5   "
395 GOSUB82:GOSUB90
400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
405 PRINT"  [198]IND THE COST OF A DOZEN GRAPEFRUIT
410 [153]"  AT 30 CENTS EACH."
415 [153]"  (STR$ON'T FORGET THE $ SIGN)"
420 [141]81:[141]70
425 [153]"             ON"
430 [133] A$
440 [139]A$[179][177]"$3.60"[167]470
450 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
460 P[178]P[170]1:[137]500
470 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
475 [139]Z[178]2[167]G[178]G[170]1:[137]487
480 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
485 [153]"OPENONON                                        ONONONONONONON":[137]425
487 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $3.60 SYS      ":[141]82
490 [153]"   .30 X 12 = 3.60  "
495 [141]82:[141]90
500 [153]"PRINT#LOAD               (null)UESTION 4 WAITOPEN":Z[178]0
505 [153]"  (null)HIRTY-THREE CHILDREN ARE INVITED
510 PRINT"  TO THE PARTY.
515 [153]"  (null)ILL THREE DOZEN CHAIRS BE ENOUGH       TO SEAT THEM?"
520 [141]81:[141]70
525 [153]"             ON"
530 [133] A$
540 [139]A$[179][177]"(null)"[175]A$[179][177]"Y"[167] 570
550 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
560 P[178]P[170]1:[137]600
570 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
575 [139]Z[178]2[167]G[178]G[170]1:[137]587
580 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
585 [153]"OPENONON                                        ONONONONONONON":[137]525
587 [153]"SYSONON   (null)HE CORRECT ANSWER IS  YES SYS      ":[141]82
590 [153]"    36 - 33 = 3 "
595 [141]82:[141]90
600 [153]"PRINT#LOAD               (null)UESTION 5 WAITOPEN":Z[178]0
605 [153]"  LEFT$OW MANY YARDS ARE THERE IN A HOSE
610 PRINT"  THAT IS 36 FEET LONG?"
620 GOSUB81:GOSUB70
625 PRINT"             [145]"
630 INPUT A$
640 IFA$<>"12"THEN 670
650 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
660 P=P+1:GOTO700
670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
675 IFZ=2THENG=G+1:GOTO687
680 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
685 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
687 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  12 [158]      ":GOSUB82
690 PRINT"    36 / 3 = 12 "
695 GOSUB82:GOSUB90
700 PRINT"[152][147]               [209]UESTION 6 [146][159]":Z=0
705 PRINT"  [211]EVEN YARDS OF CLOTH COST $5.25.
710 [153]"  (null)HAT WAS THE PRICE PER YARD?
725 PRINT"             [145]"
730 INPUT A$
740 IFA$<>"$.75"ANDA$<>"75"THEN 770
750 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
760 P=P+1:GOTO800
770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
775 IFZ=2THENG=G+1:GOTO787
780 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
785 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
787 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  $.75 [158]      ":GOSUB82
790 PRINT"    5.25 / 7 = .75 "
795 GOSUB82:GOSUB90
800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
805 PRINT"  [211]ARAH HAS HALF A DOLLAR.  [200]OW MUCH
810 [153]"  MORE MONEY DOES SHE NEED TO BUY
815 PRINT"  A PEN FOR 75 CENTS?
820 [141]81:[141]70
825 [153]"             ON"
830 [133] A$
840 [139]A$[179][177]"25"[175]A$[179][177]"$.25"[167] 870
850 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
860 P[178]P[170]1:[137]900
870 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
875 [139]Z[178]2[167]G[178]G[170]1:[137]887
880 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
885 [153]"OPENONON                                        ONONONONONONON":[137]825
887 [153]"SYSONON   (null)HE CORRECT ANSWER IS  25 SYS CENTS. ":[141]82
890 [153]"    75 - 50 = 25  "
895 [141]82:[141]90
900 [153]"PRINT#LOAD               (null)UESTION 8 WAITOPEN":Z[178]0
905 [153]"  PEEKEN EARNED A QUARTER AND 15 CENTS       ON (null)ATURDAY.
910 PRINT"  [200]OW MUCH DID HE EARN THAT DAY?"
920 GOSUB81:GOSUB70
925 PRINT"             [145]"
930 INPUT A$
940 IFA$<>"$.40"ANDA$<>"40"THEN 970
950 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
960 P=P+1:GOTO1000
970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
975 IFZ=2THENG=G+1:GOTO987
980 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
985 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
987 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  40 [158] CENTS.":GOSUB82
990 PRINT"    25 + 15 = 40 "
995 GOSUB82:GOSUB90
1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
1005 PRINT"  [200]OW MUCH MORE ARE 5 DOZEN THAN 55?
1020 [141]81:[141]70
1025 [153]"             ON"
1030 [133] A$
1040 [139]A$[179][177]"5"[167]1070
1050 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
1060 P[178]P[170]1:[137]1100
1070 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
1075 [139]Z[178]2[167]G[178]G[170]1:[137]1087
1080 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
1085 [153]"OPENONON                                        ONONONONONONON":[137]1025
1087 [153]"SYSONON   (null)HE CORRECT ANSWER IS  5 SYS      ":[141]82
1090 [153]"    60 - 55 = 5 "
1095 [141]82:[141]90
1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
1105 [153]"  LEFT$OW MANY HOURS IS IT BETWEEN SEVEN
1110 PRINT"  IN THE MORNING AND FOUR IN THE          AFTERNOON?"
1120 GOSUB81:GOSUB70
1125 PRINT"             [145]"
1130 INPUT A$
1140 IFA$<>"9"THEN 1170
1150 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
1160 GOTO1200
1170 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
1175 IFZ=2THENG=G+1:GOTO1187
1180 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
1185 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1125
1187 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  9 [158] HOURS. ":GOSUB82
1190 PRINT"    [212]HINK ABOUT IT! "
1195 GOSUB82:GOSUB90
1200 PRINT"[147]           [210]EPORT [195]ARD [146]"
1205 D=W-G:C=10-W
1210 PRINT"[153]  1. [209]UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
1215 [153]"                 ";C
1220 [153]"FOR  2. (null)UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
1225 PRINT"                 ";D
1230 PRINT"[150]  3. [209]UESTIONS MISSED ON SECOND TRY:
1235 [153]"                 ";G;""
1245 [141]90
1250 [153]"SYSLOAD  (null)OU HAVE A CHOICE:
1255 PRINT"  [208]RESS  [210] [146] TO REPEAT THIS LESSON
1260 [153]"  (null)RESS  (null) WAIT TO RETURN TO THE MENUOPEN"
1265 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]1265
1270 [139]R$[178]"R"[167][140]:[137]100
1275 [140]
1280 [153]"LOAD (null)ETURNING TO THE DISK MENU
1285 LOAD"MENU",8
1290 RUN
1295 END
1300 REM BILL CUMBERLAND 90:12:21